home *** CD-ROM | disk | FTP | other *** search
/ Hunter 2006 / Hunter 2006.iso / soft / sleipnir241.exe / {app} / scripts / ƒ†[ƒeƒBƒŠƒeƒB / ƒiƒrƒQ[ƒgƒƒbƒN‚Ì”½“].vbs < prev    next >
Text File  |  2006-06-15  |  252b  |  14 lines
  1. Option Explicit
  2.  
  3.     Dim obj, id, count, i
  4.     Set obj = CreateObject("Sleipnir.API")
  5.  
  6.     count = obj.GetCount
  7.  
  8.     For i=0 To count - 1
  9.         id = obj.GetDocumentID(i)
  10.         Call obj.SetNavigateLock(id, Not obj.IsNavigateLock(id))
  11.     Next
  12.  
  13.     Set obj = Nothing
  14.